home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 December / 64er_Magazin_86-12_1986_Markt__Technik_de.d64 / gc hardcopy (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  59 lines
  1. 0 ifl=0then let l=1:load"q9",8,1
  2. 1 clr:gosub100:open4,4,0:print#4,chr$(10)chr$(13)chr$(13);
  3. 2 close4
  4. 3 a$=c$
  5. 4 poke56576,0:poke53265,59:poke53272,56
  6. 5 poke53281,15:poke53280,15
  7. 20 sys 49155,160,"h?."+a$+" 1"
  8. 21 sys 49155,224,"h?."+a$+" 2"
  9. 22 sys 49152
  10. 30 sys 49155,160,"h?."+a$+" 3"
  11. 31 sys 49155,224,"h?."+a$+" 4"
  12. 32 sys 49152:ifbb=4then goto 70
  13. 40 sys 49155,160,"hz."+a$+" 5"
  14. 41 sys 49155,224,"hz."+a$+" 6"
  15. 42 sys 49152
  16. 50 sys 49155,160,"hz."+a$+" 7"
  17. 51 sys 49155,224,"hz."+a$+" 8"
  18. 52 sys 49152
  19. 60 sys 49155,160,"hz."+a$+" 9"
  20. 61 sys 49155,224,"hz."+a$+" 10"
  21. 62 sys 49152
  22. 70 poke53265,27:poke53272,21:poke56576,3
  23. 80 goto 1
  24. 100 poke53280,0:poke53281,0
  25. 101 print"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  26. 102 print"[194][153] hardcopy von giga-cad auf okimate 20 [146][194]";
  27. 103 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  28. 110 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  29. 120 print"[194]  1 - 4fach          2 - 10fach       [146][194]";
  30. 130 print"[173][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][189]";
  31. 135 print"        [194][158] bitte taste druecken ![146][194]       ";
  32. 140 print"        [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]       ";
  33. 150 poke198,0
  34. 155 geta$:ifa$<>"1"anda$<>"2"then155
  35. 160 ifa$="1"thenbb=4
  36. 165 ifa$="2"thenbb=10
  37. 170 rem
  38. 200 print""
  39. 210 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  40. 220 print"[194][129]        bitte filenamen eingeben      [146][194]";
  41. 230 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  42. 240 print"             [176][178][178][178][178][178][178][178][178][178][178][178][178][174]             ";
  43. 250 print"             [194]            [194]"
  44. 260 print"             [173][177][177][177][177][177][177][177][177][177][177][177][177][189]             [149]";
  45. 270 c=0:c$="":l=18
  46. 290 poke198,0
  47. 300 geta$:ifa$=""then300
  48. 305 ifa$>="0"anda$<="z"then350
  49. 310 ifa$=chr$(20)then360
  50. 320 ifa$="[147]"thenc=0:c$="":print"";:goto390
  51. 330 ifa$=chr$(13)then400
  52. 350 ifc=12then290
  53. 355 c=c+1:c$=c$+a$:print"";
  54. 356 fort=0toc:print"";:nextt:printa$;:goto290
  55. 360 ifc=0then290
  56. 365 c=c-1:c$=left$(c$,len(c$)-1):poke1024+l*40+c+14,32:goto290
  57. 390 print"            ";:goto290
  58. 400 return
  59.